object ArizaDegisimF: TArizaDegisimF
  Left = 239
  Top = 53
  Width = 946
  Height = 569
  Caption = #220'retim Ar'#305'za De'#287'i'#351'im Ekran'#305
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 505
    Width = 938
    Height = 37
    Align = alBottom
    TabOrder = 0
    DesignSize = (
      938
      37)
    object bkapat: TBitBtn
      Left = 856
      Top = 6
      Width = 76
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Kapat'
      TabOrder = 0
      OnClick = bkapatClick
    end
    object bgerial: TBitBtn
      Left = 102
      Top = 6
      Width = 83
      Height = 25
      Caption = 'Geri Al'
      TabOrder = 1
      OnClick = bgerialClick
    end
    object barizaaciklamagiris: TBitBtn
      Tag = 194
      Left = 723
      Top = 6
      Width = 115
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Ar'#305'za A'#231#305'klama Giri'#351
      TabOrder = 2
      OnClick = barizaaciklamagirisClick
    end
    object BitBtn1: TBitBtn
      Left = 632
      Top = 6
      Width = 83
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Export'
      TabOrder = 3
      OnClick = BitBtn1Click
    end
    object brapor: TBitBtn
      Tag = 194
      Left = 536
      Top = 6
      Width = 87
      Height = 25
      Caption = 'Rapor'
      TabOrder = 4
      OnClick = braporClick
    end
    object byenile: TBitBtn
      Left = 6
      Top = 6
      Width = 83
      Height = 25
      Caption = 'Yenile - F5'
      TabOrder = 5
      OnClick = byenileClick
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 938
    Height = 172
    ActivePage = TabSheet1
    Align = alTop
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #220'retimden Gelen De'#287'i'#351'im'
      OnShow = TabSheet1Show
      object GroupBox1: TGroupBox
        Left = 0
        Top = 7
        Width = 930
        Height = 73
        Caption = 'Eski Par'#231'a'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label11: TLabel
          Left = 8
          Top = 20
          Width = 67
          Height = 14
          Caption = 'Seri Numaras'#305
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label1: TLabel
          Left = 296
          Top = 20
          Width = 57
          Height = 16
          AutoSize = False
          Caption = 'Stok Kodu'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label4: TLabel
          Left = 512
          Top = 20
          Width = 41
          Height = 16
          AutoSize = False
          Caption = 'Ar'#305'zas'#305
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label3: TLabel
          Left = 712
          Top = 20
          Width = 48
          Height = 16
          AutoSize = False
          Caption = 'Ge'#231'ici No'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label9: TLabel
          Left = 8
          Top = 47
          Width = 44
          Height = 14
          Caption = 'Stokkodu'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object SeriNo1k: TEdit
          Left = 88
          Top = 16
          Width = 173
          Height = 24
          CharCase = ecUpperCase
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnKeyPress = SeriNo1kKeyPress
        end
        object s3: TStaticText
          Left = 352
          Top = 18
          Width = 146
          Height = 20
          AutoSize = False
          BorderStyle = sbsSunken
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object s4: TStaticText
          Left = 555
          Top = 18
          Width = 146
          Height = 20
          AutoSize = False
          BorderStyle = sbsSunken
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object s5: TStaticText
          Left = 771
          Top = 18
          Width = 146
          Height = 20
          AutoSize = False
          BorderStyle = sbsSunken
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
        end
        object lcStokkodu: TwwDBLookupCombo
          Left = 88
          Top = 44
          Width = 173
          Height = 24
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          DisableThemes = False
          DropDownAlignment = taLeftJustify
          Selected.Strings = (
            'stokkodu'#9'18'#9'Stokkodu'#9'F'
            'cinsi'#9'28'#9'cinsi'#9'F'
            'makinano'#9'11'#9'Makinano'#9'F')
          LookupTable = EskiParcaQ
          LookupField = 'stokkod'
          Style = csDropDownList
          Navigator = False
          ParentFont = False
          TabOrder = 4
          AutoDropDown = True
          ShowButton = True
          UseTFields = False
          AllowClearKey = True
          OnChange = lcStokkoduChange
        end
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 85
        Width = 930
        Height = 48
        Caption = 'Yeni Par'#231'a'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Label7: TLabel
          Left = 8
          Top = 21
          Width = 67
          Height = 14
          Caption = 'Seri Numaras'#305
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 712
          Top = 20
          Width = 48
          Height = 16
          AutoSize = False
          Caption = 'Ge'#231'ici No'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object SeriNo2k: TEdit
          Left = 88
          Top = 16
          Width = 173
          Height = 24
          CharCase = ecUpperCase
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnKeyPress = SeriNo2kKeyPress
        end
        object s6: TStaticText
          Left = 771
          Top = 18
          Width = 146
          Height = 20
          AutoSize = False
          BorderStyle = sbsSunken
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Depodan Direk Ar'#305'zaya '#199#305'k'#305#351
      ImageIndex = 1
      OnShow = TabSheet2Show
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 930
        Height = 49
        Align = alTop
        Caption = 'Ar'#305'za Nedeni'
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object uretimarizasic: TRadioButton
          Left = 56
          Top = 21
          Width = 113
          Height = 17
          Caption = #220'retim Ar'#305'zas'#305
          Checked = True
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = uretimarizasicClick
        end
        object serinumarasizparcaarizasic: TRadioButton
          Left = 192
          Top = 22
          Width = 193
          Height = 17
          Caption = 'Seri Numaras'#305'z '#220'retim Ar'#305'zas'#305
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = serinumarasizparcaarizasicClick
        end
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 49
        Width = 930
        Height = 94
        Align = alTop
        Caption = 'Eski Par'#231'a Giri'#351
        Font.Charset = TURKISH_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object serinumarasil: TLabel
          Left = 8
          Top = 24
          Width = 67
          Height = 14
          Caption = 'Seri Numaras'#305
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 304
          Top = 24
          Width = 57
          Height = 16
          AutoSize = False
          Caption = 'Stok Kodu'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label6: TLabel
          Left = 304
          Top = 48
          Width = 33
          Height = 16
          AutoSize = False
          Caption = 'Cinsi'
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label2: TLabel
          Left = 8
          Top = 48
          Width = 78
          Height = 14
          Caption = 'Par'#231'an'#305'n Ar'#305'zas'#305
          Font.Charset = TURKISH_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object ESeriNok: TEdit
          Left = 96
          Top = 16
          Width = 174
          Height = 24
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnExit = ESeriNokExit
        end
        object s2: TStaticText
          Left = 368
          Top = 42
          Width = 233
          Height = 20
          AutoSize = False
          BorderStyle = sbsSunken
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object s1: TStaticText
          Left = 368
          Top = 18
          Width = 137
          Height = 20
          AutoSize = False
          BorderStyle = sbsSunken
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object GirisStokkoduk: TwwDBLookupCombo
          Left = 96
          Top = 16
          Width = 174
          Height = 24
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          DisableThemes = False
          DropDownAlignment = taLeftJustify
          Selected.Strings = (
            'stokkodu'#9'25'#9'Stok Kodu'#9'F')
          LookupTable = StokkoduQ
          LookupField = 'stokkod'
          Style = csDropDownList
          Navigator = False
          ParentFont = False
          TabOrder = 3
          Visible = False
          AutoDropDown = True
          ShowButton = True
          UseTFields = False
          AllowClearKey = True
          OnExit = GirisStokkodukExit
        end
        object Arizasik: TwwDBLookupCombo
          Left = 96
          Top = 40
          Width = 174
          Height = 24
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          DisableThemes = False
          DropDownAlignment = taLeftJustify
          Selected.Strings = (
            'arizaturu'#9'25'#9'Ar'#305'zas'#305#9'F')
          LookupTable = ArizaTuru
          LookupField = 'id'
          Style = csDropDownList
          Navigator = False
          ParentFont = False
          TabOrder = 4
          AutoDropDown = True
          ShowButton = True
          UseTFields = False
          AllowClearKey = True
        end
        object bekle: TBitBtn
          Left = 96
          Top = 67
          Width = 73
          Height = 23
          Caption = 'Ekle'
          Enabled = False
          Font.Charset = TURKISH_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnClick = bekleClick
        end
      end
    end
  end
  object cxgrid1: TcxGrid
    Left = 0
    Top = 172
    Width = 938
    Height = 333
    Align = alClient
    Font.Charset = TURKISH_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    LookAndFeel.Kind = lfUltraFlat
    LookAndFeel.NativeStyle = True
    object cxgrid1DBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = UretimArizaQS
      DataController.Filter.Active = True
      DataController.Filter.AutoDataSetFilter = True
      DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding]
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = 'Adet : #'
          Kind = skCount
          FieldName = 'id'
          Column = cxgrid1DBTableView1id
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.IncSearch = True
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Indicator = True
      Styles.StyleSheet = dm.tvssDevExpress
      object cxgrid1DBTableView1tip: TcxGridDBColumn
        Caption = 'Ar'#305'za Nedeni'
        DataBinding.FieldName = 'tip'
        PropertiesClassName = 'TcxImageComboBoxProperties'
        Properties.Items = <
          item
            Description = 'Par'#231'a Ar'#305'zas'#305
            Value = '1'
          end
          item
            Description = #220'retim Ar'#305'zas'#305
            Value = '2'
          end>
        Width = 100
      end
      object cxgrid1DBTableView1islemtarihi: TcxGridDBColumn
        Caption = 'Tarih'
        DataBinding.FieldName = 'islemtarihi'
        Width = 60
      end
      object cxgrid1DBTableView1id: TcxGridDBColumn
        Caption = 'No'
        DataBinding.FieldName = 'id'
        Width = 45
      end
      object cxgrid1DBTableView1stokkodu: TcxGridDBColumn
        Caption = 'Stok Kodu'
        DataBinding.FieldName = 'stokkodu'
        Width = 150
      end
      object cxgrid1DBTableView1eSeriNo: TcxGridDBColumn
        Caption = 'E.Seri No'
        DataBinding.FieldName = 'eSeriNo'
        Width = 100
      end
      object cxgrid1DBTableView1ySerino: TcxGridDBColumn
        Caption = 'Y.Seri No'
        DataBinding.FieldName = 'ySerino'
        Width = 100
      end
      object cxgrid1DBTableView1personel: TcxGridDBColumn
        Caption = 'Personel'
        DataBinding.FieldName = 'personel'
        Width = 120
      end
      object cxgrid1DBTableView1Makinano: TcxGridDBColumn
        Caption = 'Makinano'
        DataBinding.FieldName = 'makinano'
      end
      object cxgrid1DBTableView1arizasi: TcxGridDBColumn
        Caption = 'Ar'#305'zas'#305
        DataBinding.FieldName = 'arizasi'
        Width = 150
      end
    end
    object cxgrid1Level1: TcxGridLevel
      GridView = cxgrid1DBTableView1
    end
  end
  object EskiParcaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serino'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'select stokkod,'
      '       dbo.getStokkodu(Stokkod) as stokkodu,'
      '       dbo.getCinsi(Stokkod) as cinsi,'
      '       fatharhar.makinano,'
      '       uretimno,'
      '       uretim.tarih,'
      '       dbo.getStokkodu(Uretimkod) as Makinastokkodu,'
      '       dbo.getCinsi(Uretimkod) as Makinacinsi,'
      
        '       peradi=(Select adi+'#39' '#39'+soyadi from perkart where perkart.' +
        'perkod=uretim.perkod),'
      '       perkod       '
      'from fatharhar,uretim '
      'where serinos=:serino and uretim.makinano=fatharhar.makinano'
      '')
    Left = 615
    Top = 272
  end
  object YeniParcaQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'serino'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select *,Stokkodu=dbo.GetStokkodu(Stokkod)'
      
        ',GrupId=(Select GrupId From Stok Where Stokkod=Fatharhar.stokkod' +
        ')'
      'from Fatharhar'
      'where serinos=:serino')
    Left = 688
    Top = 372
  end
  object UretimArizaQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'Select dbo.getstokkodu(stokkod) as stokkodu,personel=(select adi' +
        '+'#39' '#39'+soyadi from perkart where perkart.perkod=UretimAriza.Perkod' +
        '),* from UretimAriza '
      'where durum=1'
      'order by id desc')
    Left = 536
    Top = 296
  end
  object EskiCikarQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'serino'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'Update Fatharhar'
      'set makinano=null'
      'where serinos=:serino')
    Left = 688
    Top = 264
  end
  object YeniEkleQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'Makinano'
        Size = -1
        Value = Null
      end
      item
        Name = 'serino'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'Update Fatharhar'
      'set makinano=:makinano'
      'where serinos=:serino')
    Left = 688
    Top = 296
  end
  object ArizaAciklamasiQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select aciklama from Ariza_Aciklama'
      'where tip=1'
      'order by aciklama')
    Left = 688
    Top = 328
  end
  object UretimArizaQS: TDataSource
    DataSet = UretimArizaQ
    Left = 536
    Top = 232
  end
  object StokkoduQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select stokkod,stokkodu from stok '
      'where aktif='#39'A'#39' and stokkodu='#39'bky.cs-ps/400'#39)
    Left = 728
    Top = 232
  end
  object StokTakipQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select stokkod,stokkodu from stok '
      'where aktif='#39'A'#39' and stokkodu='#39'bky.cs-ps/400'#39)
    Left = 776
    Top = 232
  end
  object spOtoFisOlusturQ: TADOStoredProc
    Connection = dm.connect
    ProcedureName = 'UretimAriza_OtoStokFisiOlusturma;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@aciklama'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@stokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@miktar'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@cambar'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@gambar'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@tarih'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@saat'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end
      item
        Name = '@islem'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@GCDepo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end>
    Left = 408
    Top = 232
  end
  object ArizaTuru: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from TblStokArizaTanimi')
    Left = 168
    Top = 254
  end
  object StokGrupModelBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select GrupId from stok'
      'where stokkod=:stokkod')
    Left = 168
    Top = 288
  end
  object ArizaTuruS: TDataSource
    DataSet = ArizaTuru
    Left = 136
    Top = 254
  end
  object Eskifatharhar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'GeciciMakinano'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select serinos=upper(serinos),stokkod,GeciciMakinano from fathar' +
        'har'
      'where GeciciMakinano=:GeciciMakinano and Makinano is not Null')
    Left = 168
    Top = 344
  end
  object YeniFatharhar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'GeciciMakinano'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select serinos=upper(serinos),stokkod,GeciciMakinano from fathar' +
        'har'
      'where GeciciMakinano=:GeciciMakinano and Makinano is Null')
    Left = 168
    Top = 400
  end
  object aqMuadilDegisim: TADOQuery
    Connection = dm.connect
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'GrupID'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'Stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select Stokkod,Stokkodu from TblUpgradeMuadilDegisim Md '
      'Join TblUpgradeMuadilDegisimhar Mdh on (Md.id=Mdh.Masterid)'
      
        'Where GrupId=:GrupID and Md.id in (Select Masterid from TblUpgra' +
        'deMuadilDegisimhar Where Stokkod=:Stokkod)')
    Left = 432
    Top = 401
  end
  object spMUPUDegisim: TADOStoredProc
    Connection = dm.connect
    ProcedureName = 'ParcaDegisim_OtoStokFisiOlusturma;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@fistipi'
        Attributes = [paNullable]
        DataType = ftString
        Size = 6
        Value = Null
      end
      item
        Name = '@cambar'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@gambar'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = Null
      end
      item
        Name = '@estokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@ystokkod'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@tarih'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = '@saat'
        Attributes = [paNullable]
        DataType = ftString
        Size = 5
        Value = Null
      end
      item
        Name = '@islem'
        Attributes = [paNullable]
        DataType = ftString
        Size = 1
        Value = Null
      end
      item
        Name = '@GCDepo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@OnarimNo'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@ESeriNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@YSeriNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@ESeriNo2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@YSeriNo2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end>
    Left = 398
    Top = 318
  end
end
